PC Users 1998 June/Cd Pc Users 9.iso/prog/inst/ssaver/blank.bas

BASIC Source File | 1995-11-29 | 562 b | 27 lines

' BLANK.FRM
Option Explicit
Dim m001A As Variant
Dim m002A As Variant
Dim m009A(3) As Variant

Sub Form_KeyDown (p1 As Integer, p2 As Integer)
    sub170
End Sub

Sub Form_Load ()
    Move 0, 0, Screen.Width, Screen.Height
    sub1E0
End Sub

Sub Form_MouseMove (p1 As Integer, p2 As Integer, p3 As Single, p4 As Single)
    If  IsEmpty(m001A) Or IsEmpty(m002A) Then
        m001A = p3
        m002A = p4
    End If
    If  Abs(m001A - p3) > 2 Or Abs(m002A - p4) > 2 Then
        sub170
    End If
    m001A = p3
    m002A = p4
End Sub